home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Printer Scheduler.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  63 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH 1"="Hardware\Printers"
  5. "---UIPATH 2"=""
  6. "NAME"="Printer Scheduler Priority"
  7. "VERSION"="1.07"
  8. "OSVERSION"="0101011"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Below Normal Priority"
  11. "TEXT 2"="Normal Priority"
  12. "TEXT 3"="Above Normal Priority"
  13. "DESCRIPTION 1"="These settings control the overall priority of the printer scheduler."
  14. "DESCRIPTION x"="For Normal Priority, check Box 1; For Above Normal Priority, clear Box 2; For Below Normal Priority, check Box 3."
  15. "AUTHOR"="Ojatex@aol.com"
  16. "CONTACTURL"="http://members.aol.com/ojatex/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Cartridge Empty  --> Use a Pen."
  20. "COMMENT 3"="Thanks to Little Dave [sirturque@bigfoot.com] for the description bug notice!"
  21.  
  22.  
  23. sV1="HKLM\System\CurrentControlSet\Control\Print\SchedulerThreadPriority" 'DW 
  24. sV1_Val="4294967295"
  25.  
  26.  
  27. Sub Plugin_Initialize 
  28.     s=RegReadValue(sV1)
  29.  
  30.     'check for below
  31.     if Len(s)>=1 then 
  32.        if cstr(s)=sV1_Val then SetUIElement 1,true
  33.     end if
  34.  
  35.     'check for normal priority
  36.     if IsEmpty(s) or s=0 then SetUIElement 2,true 
  37.  
  38.     'check for above priority
  39.     if s=1 then SetUIElement 3, true
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  
  47.  if GetUIElement(1)=true then
  48.     Call RegWriteValue(sV1,sV1_Val,2)
  49.  end if
  50.  
  51.  if GetUIElement(2)=true then
  52.     Call RegWriteValue(sV1,0,2)
  53.  end if
  54.  
  55.  if GetUIElement(3)=true then
  56.     Call RegWriteValue(sV1,1,2)
  57.  end if
  58.  
  59. End Sub
  60.  
  61. Sub Plugin_Terminate 
  62. End Sub
  63.